home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / gtswaug.dxr / 00008_GTSLeaveGames,GTSReturnGames .ls < prev    next >
Encoding:
Text File  |  1996-06-14  |  3.9 KB  |  107 lines
  1. on GTSLeaveGames y
  2.   global GTSGamesMasterList, GTSButtonsSprite, GTSButtonCastNum, GTSbuttonCount, IFLgamesNameSprite, ADDADCOntTwo, IFLButtonList, ADDAdCount, ADDADvertSprite
  3.   forget(window "TRYGAME")
  4.   updateStage()
  5.   if y = 1 then
  6.     nothing()
  7.   else
  8.     puppetSound(0)
  9.     updateStage()
  10.   end if
  11.   repeat with f = 1 to count(GTSGamesMasterList)
  12.     set TwochangeSprite to getAt(GTSGamesMasterList, f)
  13.     if count(TwochangeSprite) > 2 then
  14.       setAt(TwochangeSprite, 2, the castNum of sprite getAt(TwochangeSprite, 1))
  15.       setAt(TwochangeSprite, 5, the ink of sprite getAt(TwochangeSprite, 1))
  16.       setAt(TwochangeSprite, 3, the locH of sprite getAt(TwochangeSprite, 1))
  17.       setAt(TwochangeSprite, 4, the locV of sprite getAt(TwochangeSprite, 1))
  18.     else
  19.       setAt(TwochangeSprite, 2, 0)
  20.     end if
  21.     set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  22.     set the locV of sprite getAt(TwochangeSprite, 1) to 2000
  23.   end repeat
  24.   set the locH of sprite 38 to 2000
  25.   set the locH of sprite ADDADvertSprite to 2000
  26.   set GTSbuttonCount to 0
  27.   if y = 1 then
  28.     set the castNum of sprite IFLgamesNameSprite to 17
  29.   end if
  30.   if y = 2 then
  31.     set the locH of sprite 1 to 2000
  32.     repeat with f = 1 to count(IFLButtonList)
  33.       set ThisTempList to getAt(IFLButtonList, f)
  34.       setAt(ThisTempList, 2, the castNum of sprite getAt(ThisTempList, 1))
  35.     end repeat
  36.     repeat with t = 39 to 47
  37.       set the locH of sprite t to 2000
  38.     end repeat
  39.     set the castNum of sprite IFLgamesNameSprite to getAt(getAt(IFLButtonList, 7), 5)
  40.     set ADDADCOntTwo to 0
  41.     set ADDAdCount to 0
  42.     set the locH of sprite ADDADvertSprite to 2000
  43.     ADDLOADAdd()
  44.   end if
  45.   updateStage()
  46.   puppetSound(0)
  47.   updateStage()
  48. end
  49.  
  50. on GTSReturnGames y
  51.   global GTSGamesMasterList, IFLButtonList, IFLgamesNameSprite, GTSHeadCastNum, GTSVisitCoverSprite, ADDADvertSprite, GTSSnapCover
  52.   if y = 1 then
  53.     repeat with g = 1 to 10
  54.       set the castNum of sprite IFLgamesNameSprite to the castNum of sprite IFLgamesNameSprite - 1
  55.       wait(0.02)
  56.       updateStage()
  57.     end repeat
  58.     puppetSound("gamenoiz.wav")
  59.     updateStage()
  60.   end if
  61.   repeat with f = 1 to count(GTSGamesMasterList)
  62.     set TwochangeSprite to getAt(GTSGamesMasterList, f)
  63.     if count(TwochangeSprite) > 2 then
  64.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  65.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  66.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  67.       set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 5)
  68.       set the visible of sprite getAt(TwochangeSprite, 1) to 1
  69.       next repeat
  70.     end if
  71.     set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  72.   end repeat
  73.   if y = 2 then
  74.     repeat with f = 1 to count(IFLButtonList)
  75.       set TwochangeSprite to getAt(IFLButtonList, f)
  76.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  77.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  78.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  79.     end repeat
  80.     set the locH of sprite 1 to 325
  81.     set the locV of sprite 1 to 271
  82.     if GTSSnapCover > 2 then
  83.       set the locH of sprite 38 to 2000
  84.     end if
  85.   end if
  86.   if GTSHeadCastNum > 0 then
  87.     set the castNum of sprite IFLgamesNameSprite to GTSHeadCastNum
  88.   end if
  89.   ADDAdvertBreak(7)
  90.   updateStage()
  91.   go("GTSgamesSection")
  92.   set the windowType of window "TRYGAME" to 2
  93.   set the rect of window "TRYGAME" to rect(the stageLeft + 412, the stageTop + 90, the stageLeft + 515, the stageTop + 195)
  94.   open(window "TRYGAME")
  95.   tell window "TRYGAME"
  96.     updateStage()
  97.   end tell
  98.   if GTSVisitCoverSprite > 0 then
  99.     tell window "TRYGAME"
  100.       set the locH of sprite GTSVisitCoverSprite to 52
  101.     end tell
  102.     tell window "TRYGAME"
  103.       set the locV of sprite GTSVisitCoverSprite to 53
  104.     end tell
  105.   end if
  106. end
  107.